home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Business Assistant
/
Business Assistant.iso
/
acctg
/
db3plsar
/
labels.prg
< prev
next >
Wrap
Text File
|
1986-08-04
|
2KB
|
67 lines
******************** (LABEL.PRG)
CLEA
STORE ' ' TO OPTION
@ 2,5 SAY 'This will run labels for everyone without an * in ì
their discount field.'
@ 4,5 SAY ' You will have an option to do labels for individual ì
customers.'
@ 8,10 SAY ' Set up printer with letter quality first.'
@ 10,18 SAY 'Use Avery # 4143 2-wide labels for a full run.'
@ 12,10 SAY [Pick up at your local office supply or send $ 8.95 ì
to Jay's.]
@ 16,20 SAY 'Do you want to run for ALL customers? '
?
?
WAIT ' ? ' TO OPTION
IF OPTION='Y'
CLEA
STORE ' ' TO OPT2
@ 16,10 SAY 'Want to skip the customers with a 0 balance ? '
?
WAIT ' ? ' TO OPT2
IF OPT2='N'
@ 23,15 SAY 'Press ESC to abort while printing labels.'
USE CUST
LABE FORM LABELS SAMPLE TO PRIN FOR .NOT. '*' $ (DISC)
CLEA
RETURN
ENDIF
IF OPT2='Y'
USE CUST
@ 23,15 SAY 'Press ESC to abort while printing labels.'
LABE FORM LABELS SAMPLE TO PRIN FOR .NOT. '*' $ (DISC) .AND. NET<>0.00
ENDIF
ENDIF
DO WHILE .T.
CLEA
@ 15,20 SAY 'Do you want to run labels for 1 customer?'
?
?
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
CLEA
RETURN
ENDIF
USE CUST
CLEA
STORE ' ' TO WHO
@ 15,15 SAY 'Account number ? ' GET WHO
READ
CLEA
SET TALK ON
@ 17,0 SAY [I'll be just a moment with this...]
?
COPY TO TEMP FOR ACCT=WHO
USE TEMP
SET TALK OFF
STORE 1 TO TIMES
@ 16,0 CLEA
@ 17,15 SAY 'How many labels? ' GET TIMES
READ
CLEA
DO WHILE TIMES<>0
LABE FORM LABELS TO PRIN FOR ACCT=WHO
STORE TIMES-1 TO TIMES
ENDDO
ENDDO